home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Win2K NoComputersNearMe 1.xpl < prev    next >
Text File  |  2004-02-05  |  2KB  |  46 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH 1"="Appearance\Desktop\Icons\'My Network Neighborhood' Options"
  5. "NAME"="Show computers near me"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Show computers near to me in My Network Places"
  8. "DESCRIPTION 1"="When you are connected to a network in Windows 2000, all the computers you are linked to will appear in My Network Places."
  9. "DESCRIPTION 2"="With this plug-in you can hide those computers that are 'near' to you. To do this, clear the tick in the box. To enable it again, place a tick in the box."
  10. "COMMENT 1"="CptSiskoX: This is for Windows 2000 networking. Plug-in perhaps?"
  11. "COMMENT 2"="Pierre: This one looks familiar. I think we already have it, with a different description."
  12. "COMMENT 3"="CptSiskoX: I don't think we have it.  I bet you are thinking of the "No Windows ME Network Crawling" one, which isn't the same, but sounds somewhat similar. Maybe that's what you were thinking of? :)"
  13. "COMMENT 4"="Pierre: I was thinking of "Network\Security\General\Workgroup Security Options", 2nd item (in 5.7). I may be mistaken, but they do look suspisciously similar."
  14. "COMMENT 5"="CptSiskoX: According to the view code tab, it shows [contents removed] for that one.  Is that the same?  If I'm wrong then sorry. <g>"
  15. "COMMENT 6"="Neil T: Although I'm using v6.0, the values in the registry are very different."
  16. "COMMENT 7"="CptSiskoX: Pierre was doing the right thing though <g> just trying to make sure we didn't waste our time doing something we'd already done.  But I think it is an entirely new setting. :)"
  17. "COMMENT 8"="Pierre: Indeed it is. My mistake, sorry :)"
  18. "COMMENT 9"="CptSiskoX: <g>  Thanks anyway Pierre.  Looks like I -finally- <g> found a new one."
  19. "VERSION"="1.15"
  20. "AUTHOR"="Xteq Systems (Neil R. Turner)"
  21. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  22. "CONTACTURL"="http://www.xteq.com/"
  23. "OSVERSION"="0001"
  24.  
  25. sP="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoComputersNearMe"
  26.  
  27. SUB Plugin_Initialize
  28.  s=RegReadValue(sP)
  29.  if s=0 OR IsEmpty(s) then
  30.     Call SetUIElement(1,true)
  31.  end if
  32. END SUB
  33.  
  34. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  35.  s=GetUIElement(1)
  36.  if s=true then
  37.     if RegValueExists(sP) then Call RegDeleteValue(sP)
  38.     'Call RegWriteValue(sP,0,2)
  39.  else
  40.     Call RegWriteValue(sP,1,2)
  41.  end if
  42. END SUB
  43.  
  44. SUB Plugin_Terminate
  45. END SUB
  46.